Palm Organizer v1.2
By Kerm Martian
Please email me with questions and comments at Kerm_Martian@yahoo.com with questions, comments, and suggestions.

AxesOff
If Z(min=31187    		<--In [vars][2][>]
Goto AY
Lbl Z1
Disp "SETTING UP...
ClrDraw
For(X,1,56,7
Text(X,1,"			<--In Catalog near the very end
End
StorePic 9
Disp "[12 spaces]DONE
31187-->Z(min
For(X,1,300
End
Lbl AY
ClrDraw
Text(14,10,"PALM ORGANIZER v1.2
Text(28,16,"BY KERM MARTIAN
Text(36,2,"KERM[3 spaces]MARTIAN(a)YAHOO.COM
Pxl-On(41,18
Pxl-On(41,19
For(X,1,500
End
ClrDraw
Lbl AZ
Menu("PALM ORGANIZER","View TASKS",AA,"Edit TASKS",BB,"COMPLETE TASK",CC,"Reset",Z2,"INFO",AY,"Quit",QQ
Lbl Z2
Menu("Reset?","NO",AZ,"Yes",Z1
Lbl QQ
AxesOn:ClrHome
Disp "PALM ORGANIZER v1.2","BY KERM MARTIAN
Return
Lbl AA
ClrDraw
RecallPic 9
Pause
Goto AZ
Lbl BB
RecallPic 9
8-->A:5-->B
Lbl B
Pxl-Change(A,B
Pxl-Change(A,B+1
GetKey-->K
If K=0
Goto B
Pxl-Off(A,B
Pxl-Off(A,B+1
If K(24 and K(25 and K(26 and K(34 and K(21 and K(105
Goto BH
If K=24 and B>5
B-4-->B
If K=25 and A>7
A-7-->A
If K=26 and B<94
B+4-->B
If K=34 and A<63
A+7-->A
If K=21
Goto AZ
If K=105
Goto B1
Goto B
Lbl B1
Input "TEXT?",Str1
Text(A-6,B,Str1
StorePic 9
Goto AZ
Lbl BH
ClrDraw
Text(2,2,"[2nd]=BACK
Text(10,2,"[Enter]=INSERT TEXT
Text(18,2,"[Arrows]=MOVE
Pause
ClrDraw
Goto BB
Lbl CC
RecallPic 9
5-->A
Lbl C
Pxl-On(A,2
GetKey-->K
If K=0
Goto C
Pxl-Off(A,2
If K=21
Goto AZ
IF K=105
Goto C1
IF K=25 and A>3
A-7-->A
If K=34 and A<63
A+7-->A
Goto C
Lbl C1
For(X,0,94
Pxl-On(A,X
End
StorePic 9
Goto AZ

